home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / lach102.zip / LACH.EXE / HELPER.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-01-14  |  19KB  |  927 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  19370 bytes  03/09/122  08:28:16am
  3. '! Code Segment Size  :8053 bytes
  4. '! Data Segment Size  :4500 bytes
  5. '! String Segment Size:11317 bytes
  6. '! Compiled with WCC version 4.12
  7.  
  8.       Dim i4463 As Integer
  9.       Dim i4465 As Integer
  10.       Dim s4467 As String*1
  11.       Dim s4468 As String
  12.       Dim s4472 As String
  13.       Dim s4476 As String
  14.       Dim s4480 As String
  15.       Dim s4484 As String
  16.       Dim s4488 As String
  17.       Dim s4492 As String
  18.       Dim s4496 As String
  19.  
  20.       Dim l65480_ As Long
  21.       Dim i65484_ As Integer
  22.       Dim l65486_ As Long
  23.       Dim i65490_ As Integer
  24.       Dim l65492_ As Long
  25.       Dim i65496_ As Integer
  26.       Dim l65498_ As Long
  27.       Dim i65502_ As Integer
  28.       Dim l65504_ As Long
  29.       Dim i65508_ As Integer
  30.       Dim l65510_ As Long
  31.       Dim i65514_ As Integer
  32.       Dim l65516_ As Long
  33.       Dim i65520_ As Integer
  34.       Dim l65522_ As Long
  35.       Dim i65526_ As Integer
  36.       Dim s65528_ As String
  37.       Dim s65532_ As String
  38.  
  39.       Do
  40.         Do
  41.           Do
  42.             Do
  43.               Do
  44.                 Do
  45.                   Do
  46.    40               Cls 
  47.                     MorePrompt(0)
  48.                     Locate 6, 19
  49.                     Print "@0D@L@05@achrymator @0D@E@05@xtras @0D@S@05@etup @0D@U@05@tility @0D@1@05@.1"
  50.                     Locate 7, 16
  51.                     Print "@08@Copyright (c) 1995 Sick & Twisted Software"
  52.                     Locate 9, 22
  53.                     Print "@08@[@09@1@08@]......@07@Add an Extras module"
  54.                     Locate 10, 22
  55.                     Print "@08@[@09@2@08@]...@07@Help on WC! Color Codes"
  56.                     Locate 11, 22
  57.                     Print "@08@[@09@3@08@]...@07@Quit to SysOp Utilities"
  58.                     Locate 13, 25
  59.                     Print "@09@Enter your choice @08@[@89@?@08@]"
  60.                     Locate 13, 44
  61.                     Do
  62.   151                 s4467 = InKey(1213417543)
  63.                       If InStr("123", UCase(s4467)) Then
  64.                         GoTo 200
  65.                       End If
  66.   194               Loop
  67.   200               If UCase(s4467) = "1" Then
  68.                     Else
  69.   228                 If UCase(s4467) = "2" Then
  70.                         GoTo 5565
  71.                       End If
  72.   256                 If UCase(s4467) = "3" Then
  73.                         End 
  74.                       End If
  75.                     End If
  76.                     Do
  77.                       Do
  78.                         Do
  79.                           Do
  80.   279                       Cls 
  81.                             MorePrompt(0)
  82.                             Locate 5, 1
  83.                             Print "@09@Please select one of the following options: "
  84.                             Locate 7, 1
  85.                             Print "@08@(@0F@1@08@) @0C@Install Extras Module @0F@AND @0C@Edit Extras Module Configuration File"
  86.                             Locate 8, 1
  87.                             Print "@08@(@0F@2@08@) @0C@Extras Module Configuration File Editor"
  88.                             Locate 9, 1
  89.                             Print "@08@(@0F@3@08@) @0C@View and/or kill the Lachrymator EXTRAS.DAT File"
  90.                             Locate 10, 1
  91.                             Print "@08@(@0F@4@08@) @0C@Quit back to the main menu"
  92.                             Locate 12, 1
  93.                             Print "@09@If you haven't installed it yet then @0F@PLEASE @09@run option 1."
  94.                             Locate 13, 1
  95.                             Print "@09@Option 2 is @0F@ONLY @09@if you need to edit your Configuration at a later date."
  96.                             Locate 14, 1
  97.                             Print "@09@Option 3 is @0F@ONLY @09@for viewing and/or killing (deleting) the EXTRAS.DAT File."
  98.                             Locate 16, 1
  99.                             Print "@09@What's it gonna be? @08@(@0F@1@08@,@0F@2@08@,@0F@3@08@,@0F@4@08@)  @04@[@87@?@04@]"
  100.                             Locate 16, 33
  101.                             Do
  102.   438                         s4467 = InKey(1213417543)
  103.                               If InStr("1234", UCase(s4467)) Then
  104.                                 GoTo 487
  105.                               End If
  106.   481                       Loop
  107.   487                       s65532_ = UCase(s4467)
  108.                             If s65532_ = "1" Then
  109.                               GoTo 1134
  110.                               GoTo 622
  111.                             End If
  112.   529                       If s65532_ = "2" Then
  113.                               GoTo 5657
  114.                               GoTo 622
  115.                             End If
  116.   558                       If s65532_ = "3" Then
  117.                               GoTo 622
  118.                               GoTo 622
  119.                             End If
  120.   587                       If s65532_ = "4" Then
  121.                               GoTo 40
  122.                               GoTo 622
  123.                             End If
  124.   616                     Loop
  125.   622                     If (Exists(ProgPath + "extras.dat")) = 0 Then GoTo 1011
  126.                           Cls 
  127.                           MorePrompt(0)
  128.                           Locate 2, 1
  129.                           DisplayTextFile(ProgPath + "extras.dat")
  130.                           Print Space(78)
  131.                           Print Space(78)
  132.                           Print "@09@Match the Path with the Description @0F@BELOW @09@it......:)"
  133.                           Print Space(78)
  134.                           Print "@09@DELETION OF THE EXTRAS.DAT WILL UNINSTALL @0F@ALL @09@EXTRAS MODULES FROM LACHRYMATOR"
  135.                           Print Space(78)
  136.                           Print "@0C@Do you wish to @0F@DELETE @0C@the above @0F@EXTRAS.DAT @0C@file? @08@(@0F@y@08@/@0F@N@08@) @04@[@87@?@04@]";
  137.                           Locate CsrLin, Pos - 2
  138.                           Do
  139.   746                       s4467 = InKey(1213417543)
  140.                             If s4467 > "" Then
  141.                               GoTo 791
  142.                             End If
  143.   785                     Loop
  144.   791                     If (UCase(s4467) = "Y") = 0 Then GoTo 999
  145.                           Cls 
  146.                           MorePrompt(1213417543)
  147.                           CopyFile(ProgPath + "extras.dat", ProgPath + "extras.bak")
  148.                           Del ProgPath + "extras.dat"
  149.                           Locate 7, 15
  150.                           Print "@0F@EXTRAS.DAT @0C@has been deleted per your request."
  151.                           Locate 10, 1
  152.                           Print "@0F@ALL @0C@Extras Modules have now been successfully @0F@UNINSTALLED@0C@."
  153.                           Locate 11, 1
  154.                           Print "@0C@A Backup of @0F@EXTRAS.DAT @0C@has been made in case you have just made a mistake :)"
  155.                           Locate 12, 1
  156.                           Print "@0C@The Filename is @0F@EXTRAS.BAK @0C@- If you don't need it feel free to delete it!"
  157.                           Locate 15, 18
  158.                           Print "@89@Press any key to continue....."
  159.                           Do
  160.   942                       s4467 = InKey(1213417543)
  161.                             If s4467 > "" Then
  162.                               GoTo 987
  163.                             End If
  164.   981                     Loop
  165.   987                   Loop
  166.                         GoTo 1005
  167.   999                 Loop
  168.  1005                 GoTo 1134
  169.  1011                 Cls 
  170.                       MorePrompt(0)
  171.                       Locate 10, 10
  172.                       Print "@07@ERROR DETECTED: @0C@File not Found - EXTRAS.DAT"
  173.                       Locate 11, 10
  174.                       Print "@07@Make sure that this Program is run from the Lachrymator Directory"
  175.                       Locate 12, 10
  176.                       Print "@07@Ensure that EXTRAS.DAT exists in your Lachrymator Directory"
  177.                       Locate 15, 20
  178.                       Print "@89@Press any key to continue....."
  179.                       Do
  180.  1083                   s4467 = InKey(1213417543)
  181.                         If s4467 > "" Then
  182.                           GoTo 1128
  183.                         End If
  184.  1122                 Loop
  185.  1128               Loop
  186.  1134               Cls 
  187.                     MorePrompt(0)
  188.                     Locate 2, 1
  189.                     Print "@1F@  Instructions for Installing Extras into Lachrymator  "
  190.                     Locate 4, 1
  191.                     Print "@09@You will need the following in order for this to succeed:"
  192.                     Locate 5, 5
  193.                     Print "@08@[@0F@1@08@] @09@A @0F@REGISTERED @09@Copy of Lachrymator"
  194.                     Locate 6, 5
  195.                     Print "@08@[@0F@2@08@] @09@The @0F@COMPLETE @09@Path to the .WCX File that will be run as an Extra"
  196.                     Locate 7, 5
  197.                     Print "@08@[@0F@3@08@] @09@The Description you wish to use for the Extra Game Module@8F@*"
  198.                     Locate 8, 5
  199.                     Print "@08@[@0F@4@08@] @09@The @0F@COMPLETE @09@Path to your Lachrymator Files"
  200.                     Locate 9, 5
  201.                     Print "@08@[@0F@5@08@] @09@The REGISTRATION NUMBER for the Other Place @08@(@07@Optional@08@)"
  202.                     Locate 11, 1
  203.                     Print "@09@Before attempting to run this utility PLEASE make sure to have all the above"
  204.                     Locate 13, 1
  205.                     Print "@8F@* @04@You can also use the @0C@AUTODETECT @04@feature of this program"
  206.                     Locate 14, 1
  207.                     Print "@04@if you want to use the default other place description......"
  208.                     Locate 15, 1
  209.                     Print "@04@Or of course feel free to customize the description yourself! :)"
  210.                     Locate 16, 1
  211.                     Print "@04@For Help on Wildcat Color Codes see option 2 on the previous menu."
  212.                     Locate 18, 1
  213.                     Print "@09@Are you sure you want to continue? @08@(@0F@Y@08@/@0F@N@08@) @09@[@88@?@09@]"
  214.                     Locate 18, 43
  215.                     Do
  216.  1357                 s4467 = InKey(1213417543)
  217.                       If InStr("YN", UCase(s4467)) Then
  218.                         GoTo 1406
  219.                       End If
  220.  1400               Loop
  221.  1406               If (UCase(s4467) = "N") = 0 Then GoTo 1434
  222.                   Loop
  223.  1434             Cls 
  224.                   MorePrompt(0)
  225.                   Locate 1, 1
  226.                   Print "@09@Please be sure to hit Enter after each response is complete."
  227.                   Locate 2, 1
  228.                   Print "@09@Type QUIT at any of the following prompts to abort installation."
  229.                   Do
  230.                     Do
  231.  1474                 Locate 4, 1
  232.                       Print "@09@Please enter the @0F@COMPLETE @09@path to your Lachrymator Directory"
  233.                       Locate 5, 1
  234.                       s4476 = InputMask("@08@(@07@Example D:\WILDCAT\LACH\@08@)@0F@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  235.                       If (UCase(s4476) = "") = 0 Then GoTo 1550
  236.                     Loop
  237.  1550               If UCase(s4476) = "QUIT" Then
  238.                       GoTo 40
  239.                     End If
  240.  1576               If Exists(s4476 + "lachuser.dat") Then
  241.                       Locate 6, 1
  242.                       Print "@09@Path @0F@VERIFIED!"
  243.                       Delay 2
  244.                       Locate 6, 1
  245.                       Print Space(78)
  246.                       GoTo 1925
  247.                     End If
  248.  1642               Locate 6, 1
  249.                     Print "@84@ERROR! @09@Valid Lachrymator Files not Detected"
  250.                     Print "@09@Would you like to enter that path again? @08@[@09@Y@08@/@09@N@08@]"
  251.                     Do
  252.  1667                 s4467 = InKey(1213417543)
  253.                       If InStr("YN", UCase(s4467)) Then
  254.                         GoTo 1716
  255.                       End If
  256.  1710               Loop
  257.  1716               If (UCase(s4467) = "Y") = 0 Then GoTo 1863
  258.  1759               For i4465 = 4 To 7 Step 1
  259.                       Locate i4465, 1
  260.                       Print Space(78)
  261.                     Next
  262.  1851             Loop
  263.                   GoTo 1925
  264.  1863             Locate 6, 1
  265.                   Print Space(78)
  266.                   Locate 7, 1
  267.                   Print Space(78)
  268.                   Locate 7, 1
  269.                   Print "@09@Thanks for using the Extras Setup Util - Returning to Main Menu"
  270.                   Delay 2
  271.                 Loop
  272.                 Do
  273.                   Do
  274.  1925               Locate 7, 1
  275.                     Print "@09@Please enter the @0F@COMPLETE @09@path to the .WCX to be used"
  276.                     Locate 8, 1
  277.                     s4468 = InputMask("@08@(@07@Example: D:\EXAMPLE\EXAMPLE.WCX@08@)@0F@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  278.                     If (UCase(s4468) = "") = 0 Then GoTo 2001
  279.                   Loop
  280.  2001             If UCase(s4468) = "QUIT" Then
  281.                     GoTo 40
  282.                   End If
  283.  2027             If Exists(s4468) Then
  284.                     Locate 9, 1
  285.                     Print "@09@Path and File @0F@VERIFIED!"
  286.                     Delay 2
  287.                     Locate 9, 1
  288.                     Print Space(78)
  289.                     GoTo 2376
  290.                   End If
  291.  2086             Locate 9, 1
  292.                   Print "@84@ERROR! @09@File / Path not Detected!!!!!!!!"
  293.                   Locate 10, 1
  294.                   Print "@09@Would you like to enter that info again? @08@[@09@Y@08@/@09@N@08@]"
  295.                   Do
  296.  2118               s4467 = InKey(1213417543)
  297.                     If InStr("YN", UCase(s4467)) Then
  298.                       GoTo 2167
  299.                     End If
  300.  2161             Loop
  301.  2167             If (UCase(s4467) = "Y") = 0 Then GoTo 2314
  302.  2210             For i4465 = 7 To 11 Step 1
  303.                     Locate i4465, 1
  304.                     Print Space(78)
  305.                   Next
  306.  2302           Loop
  307.                 GoTo 2376
  308.  2314           Locate 9, 1
  309.                 Print Space(78)
  310.                 Locate 10, 1
  311.                 Print Space(78)
  312.                 Locate 10, 1
  313.                 Print "@09@Thanks for using the Extras Setup Util - Returning to Main Menu"
  314.                 Delay 2
  315.               Loop
  316.               Do
  317.                 Do
  318.                   Do
  319.  2376               Locate 10, 1
  320.                     Print "@09@Please enter the description that will be shown to the players"
  321.                     Locate 11, 1
  322.                     Print "@09@Type @0F@AUTO @09@for Autodetection of Description for this Other Place."
  323.                     Locate 12, 1
  324.                     s4472 = InputMask("@0F@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  325.                     If (UCase(s4472) = "") = 0 Then GoTo 2468
  326.                   Loop
  327.  2468             If UCase(s4472) = "QUIT" Then
  328.                     GoTo 40
  329.                   End If
  330.  2494             If (UCase(s4472) = "AUTO") = 0 Then GoTo 3056
  331.                   Do
  332.  2514               Locate 10, 1
  333.                     Print "@09@Please enter the path to the other place:";
  334.                     ClrEOL 
  335.                     Locate 11, 1
  336.                     ClrEOL 
  337.                     Locate 12, 1
  338.                     ClrEOL 
  339.                     Locate 11, 1
  340.                     s4480 = InputMask("@08@(@07@EXAMPLE: d:\wildcat\lach\example\@08@)@0F@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  341.                     If Exists(s4480 + "opsdesc.lac") Then
  342.                       i4463 = FreeFile
  343.                       Open s4480 + "opsdesc.lac" For Input As i4463
  344.                       Input #i4463, s4484
  345.                       Close i4463
  346.                       s4472 = s4484
  347.                       GoTo 3056
  348.                       GoTo 3056
  349.                     End If
  350.  2682               Locate 10, 1
  351.                     Print "@84@ERROR!! ERROR!! @0C@OPSDESC.LAC file not found!";
  352.                     ClrEOL 
  353.                     Locate 11, 1
  354.                     Print "@09@Are you sure you entered the correct path? @08@(@07@Y@08@/@07@N@08@)";
  355.                     ClrEOL 
  356.                     Do
  357.  2720                 s4467 = InKey(1213417543)
  358.                       If InStr("YN", UCase(s4467)) Then
  359.                         GoTo 2769
  360.                       End If
  361.  2763               Loop
  362.  2769               If (UCase(s4467) = "N") = 0 Then GoTo 2803
  363.                   Loop
  364.                   GoTo 3056
  365.  2803             Locate 10, 1
  366.                   Print "@0C@Please check in whatever directory you placed the other place";
  367.                   ClrEOL 
  368.                   Locate 11, 1
  369.                   Print "@0C@Make sure that the file @0F@OPSDESC.LAC @0C@is in that directory";
  370.                   ClrEOL 
  371.                   Locate 12, 1
  372.                   Print "@0C@If it's not there then please contact a Lachrymator Support BBS";
  373.                   ClrEOL 
  374.                   Locate 13, 1
  375.                   Print "@0C@You can find the numbers for those in your SYSOP.DOC file";
  376.                   ClrEOL 
  377.                   Locate 14, 1
  378.                   Print "@07@----------@09@HIT ANY KEY TO CONTINUE@07@----------"
  379.                   Do
  380.  2895               s4467 = InKey(1213417543)
  381.                     If UCase(s4467) > "" Then
  382.                       GoTo 2943
  383.                     End If
  384.  2937             Loop
  385.  2943
  386.  2964             For i4465 = 10 To 14 Step 1
  387.                     Locate i4465, 1
  388.                     ClrEOL 
  389.                   Next
  390.  3050           Loop
  391.  3056           Locate 10, 1
  392.                 Print "@09@Here's what you designated as the description:@07@";
  393.                 ClrEOL 
  394.                 Locate 11, 1
  395.                 Print s4472;
  396.                 ClrEOL 
  397.                 Locate 12, 1
  398.                 ClrEOL 
  399.                 Locate 13, 1
  400.                 Print "@09@Is this acceptable to you oh Mighty SysGod? @08@(@09@Y@08@/@09@N@08@)";
  401.                 ClrEOL 
  402.                 Do
  403.  3122             s4467 = InKey(1213417543)
  404.                   If InStr("YN", UCase(s4467)) Then
  405.                     GoTo 3171
  406.                   End If
  407.  3165           Loop
  408.  3171
  409.  3192           For i4465 = 10 To 13 Step 1
  410.                   Locate i4465, 1
  411.                   Print Space(78)
  412.                 Next
  413.  3284           If UCase(s4467) = "Y" Then
  414.                   GoTo 3437
  415.                   GoTo 3437
  416.                 End If
  417.  3318
  418.  3339           For i4465 = 10 To 12 Step 1
  419.                   Locate i4465, 1
  420.                   Print Space(78)
  421.                 Next
  422.  3431         Loop
  423.               Do
  424.                 Do
  425.                   Do
  426.  3437               Cls 
  427.                     MorePrompt(0)
  428.                     Locate 1, 1
  429.                     Print "@1F@  Lachrymator Extras Setup Utility 1.0  @04@"
  430.                     Locate 3, 1
  431.                     Print "@09@This is what you selected for settings..."
  432.                     Locate 5, 1
  433.                     Print "@09@Lachrymator Path : " + "@0F@" + s4476
  434.                     Locate 6, 1
  435.                     Print "@09@Path to .WCX File: " + "@0F@" + s4468
  436.                     Locate 7, 1
  437.                     Print "@09@Description      : " + "@07@" + s4472
  438.                     Locate 9, 1
  439.                     Print "@09@Is this acceptable oh Mighty SysGod? @08@[@09@Y@08@/@09@N@08@]"
  440.                     Do
  441.  3580                 s4467 = InKey(1213417543)
  442.                       If InStr("YN", UCase(s4467)) Then
  443.                         GoTo 3629
  444.                       End If
  445.  3623               Loop
  446.  3629               If (UCase(s4467) = "N") = 0 Then GoTo 5056
  447.                     Locate 9, 1
  448.                     ClrEOL 
  449.                     Locate 9, 1
  450.                     Print "@09@What would you like to change?"
  451.                     Locate 11, 1
  452.                     Print "@08@(@0F@1@08@) @09@Path to Lachrymator Files: " + "@07@" + s4476
  453.                     Locate 12, 1
  454.                     Print "@08@(@0F@2@08@) @09@Path to the Other Place  : " + "@07@" + s4468
  455.                     Locate 13, 1
  456.                     Print "@08@(@0F@3@08@) @09@Other Place Description  : " + "@07@" + s4472
  457.                     Locate 14, 1
  458.                     Print "@08@(@0F@4@08@) @09@Forget it - Abort the Installation"
  459.                     Locate 15, 1
  460.                     Print "@08@(@0F@5@08@) @09@No Changes Necessary"
  461.                     Do
  462.  3796                 Locate 17, 1
  463.                       Print "@0C@What'll it be? @09@(@0F@1@08@,@0F@2@08@,@0F@3@08@,@0F@4@08@,@0F@5@09@)   @08@[@84@?@08@]"
  464.                       Locate 17, 31
  465.                       Do
  466.  3819                   s4467 = InKey(1213417543)
  467.                         If InStr("12345", UCase(s4467)) Then
  468.                           GoTo 3868
  469.                         End If
  470.  3862                 Loop
  471.  3868                 s65528_ = UCase(s4467)
  472.                       If s65528_ = "1" Then
  473.                         Do
  474.                           Do
  475.  3898                       Cls 
  476.                             Locate 4, 1
  477.                             Print "@09@Please enter the @0F@COMPLETE @09@path to your Lachrymator Directory"
  478.                             Locate 5, 1
  479.                             s4476 = InputMask("@08@(@07@Example D:\WILDCAT\LACH\@08@)@0F@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  480.                             If (UCase(s4476) = "") = 0 Then GoTo 3977
  481.                           Loop
  482.  3977                     If UCase(s4476) = "QUIT" Then
  483.                             GoTo 40
  484.                           End If
  485.  4003                     If Exists(s4476 + "lachuser.dat") Then
  486.                             Locate 6, 1
  487.                             Print "@09@Path @0F@VERIFIED!"
  488.                             Delay 2
  489.                             Locate 6, 1
  490.                             Print Space(78)
  491.                             GoTo 4352
  492.                           End If
  493.  4069                     Locate 6, 1
  494.                           Print "@84@ERROR! @09@Valid Lachrymator Files not Detected"
  495.                           Print "@09@Would you like to enter that path again? @08@[@09@Y@08@/@09@N@08@]"
  496.                           Do
  497.  4094                       s4467 = InKey(1213417543)
  498.                             If InStr("YN", UCase(s4467)) Then
  499.                               GoTo 4143
  500.                             End If
  501.  4137                     Loop
  502.  4143                     If (UCase(s4467) = "Y") = 0 Then GoTo 4290
  503.  4186                     For i4465 = 4 To 7 Step 1
  504.                             Locate i4465, 1
  505.                             Print Space(78)
  506.                           Next
  507.  4278                   Loop
  508.                         GoTo 4352
  509.  4290                   Locate 6, 1
  510.                         Print Space(78)
  511.                         Locate 7, 1
  512.                         Print Space(78)
  513.                         Locate 7, 1
  514.                         Print "@09@Thanks for using the Extras Setup Util - Returning to Main Menu"
  515.                         Delay 2
  516.                         GoTo 40
  517.  4352                   GoTo 5050
  518.                       End If
  519.  4358                 If s65528_ = "2" Then
  520.                         Do
  521.                           Do
  522.  4375                       Cls 
  523.                             Locate 7, 1
  524.                             Print "@09@Please enter the @0F@COMPLETE @09@path to the .WCX to be used"
  525.                             Locate 8, 1
  526.                             s4468 = InputMask("@08@(@07@Example: D:\EXAMPLE\EXAMPLE.WCX@08@)@0F@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  527.                             If (UCase(s4468) = "") = 0 Then GoTo 4454
  528.                           Loop
  529.  4454                     If UCase(s4468) = "QUIT" Then
  530.                             GoTo 40
  531.                           End If
  532.  4480                     If Exists(s4468) Then
  533.                             Locate 9, 1
  534.                             Print "@09@Path and File @0F@VERIFIED!"
  535.                             Delay 2
  536.                             Locate 9, 1
  537.                             Print Space(78)
  538.                             GoTo 4829
  539.                           End If
  540.  4539                     Locate 9, 1
  541.                           Print "@84@ERROR! @09@File / Path not Detected!!!!!!!!"
  542.                           Locate 10, 1
  543.                           Print "@09@Would you like to enter that info again? @08@[@09@Y@08@/@09@N@08@]"
  544.                           Do
  545.  4571                       s4467 = InKey(1213417543)
  546.                             If InStr("YN", UCase(s4467)) Then
  547.                               GoTo 4620
  548.                             End If
  549.  4614                     Loop
  550.  4620                     If (UCase(s4467) = "Y") = 0 Then GoTo 4767
  551.  4663                     For i4465 = 7 To 11 Step 1
  552.                             Locate i4465, 1
  553.                             Print Space(78)
  554.                           Next
  555.  4755                   Loop
  556.                         GoTo 4829
  557.  4767                   Locate 9, 1
  558.                         Print Space(78)
  559.                         Locate 10, 1
  560.                         Print Space(78)
  561.                         Locate 10, 1
  562.                         Print "@09@Thanks for using the Extras Setup Util - Returning to Main Menu"
  563.                         Delay 2
  564.                         GoTo 40
  565.  4829                   GoTo 5050
  566.                       End If
  567.  4835                 If s65528_ = "3" Then
  568.                         Cls 
  569.                         GoTo 2376
  570.                         GoTo 5050
  571.                       End If
  572.  4867                 If (s65528_ = "4") = 0 Then GoTo 5015
  573.                       Locate 17, 1
  574.                       ClrEOL 
  575.                       Locate 17, 1
  576.                       Print "@0C@Are you sure you want to quit the installation? @08@(@07@Y@08@/@07@N@08@)"
  577.                       Do
  578.  4910                   s4467 = InKey(1213417543)
  579.                         If InStr("YN", UCase(s4467)) Then
  580.                           GoTo 4959
  581.                         End If
  582.  4953                 Loop
  583.  4959                 If UCase(s4467) = "Y" Then
  584.                         GoTo 40
  585.                         GoTo 5009
  586.                       End If
  587.  4993                 Locate 16, 1
  588.                       ClrEOL 
  589.                     Loop
  590.  5009               GoTo 5050
  591.  5015               If (s65528_ = "5") = 0 Then GoTo 5044
  592.                   Loop
  593.                   GoTo 5050
  594.  5044           Loop
  595.  5050         Loop
  596.  5056         Locate 9, 1
  597.               Print Space(78)
  598.               Locate 9, 1
  599.               Print "@84@Writing to EXTRAS.DAT - Please Hold"
  600.               If Exists(s4476 + "extras.dat") Then
  601.                 i4463 = FreeFile
  602.                 Open s4476 + "extras.dat" For Append As i4463
  603.                 Print #i4463, s4468
  604.                 Print #i4463, s4472
  605.                 Close i4463
  606.               Else
  607.  5183           i4463 = FreeFile
  608.                 Open s4476 + "extras.dat" For Output As i4463
  609.                 Print #i4463, s4468
  610.                 Print #i4463, s4472
  611.                 Close i4463
  612.               End If
  613.  5252         Delay 1
  614.               Locate 9, 1
  615.               ClrEOL 
  616.               Locate 9, 1
  617.               Print "@09@Would you like to edit the Configuration File now? @08@(@0D@Y@08@/@0D@n@08@)  @08@[@89@?@08@]"
  618.               Locate 10, 1
  619.               Print "@09@It is @0F@STRONGLY @09@recommended that you edit it now."
  620.               Print "@09@The Extras Module will not run without it being edited."
  621.               Locate 9, 60
  622.               Do
  623.  5318           s4467 = InKey(1213417543)
  624.                 If InStr("YN", UCase(s4467)) Then
  625.                   GoTo 5367
  626.                 End If
  627.  5361         Loop
  628.  5367         If UCase(s4467) = "Y" Then
  629.                 GoTo 5657
  630.               End If
  631.  5395         Locate 9, 1
  632.               ClrEOL 
  633.               Locate 10, 1
  634.               ClrEOL 
  635.               Locate 9, 1
  636.               Print "@0D@You Have opted @0F@NOT @0D@to edit the .CFG file for the Other Place."
  637.               Locate 10, 1
  638.               Print "@0D@The .CFG File @0F@MUST @0D@be edited before the Other Place will run!"
  639.               Locate 11, 1
  640.               Print "@0D@You can use our Config Editor that is part of this Installation Program!"
  641.               Locate 12, 1
  642.               Print "@0D@Just select @0F@Add an Extras Module @0D@from the Main Menu"
  643.               Locate 13, 1
  644.               Print "@0D@Then just simply select @0F@Configuration File Editor@0D@."
  645.               Locate 14, 1
  646.               Print "@07@----------@09@HIT ANY KEY TO CONTINUE@07@----------"
  647.               Do
  648.  5511           s4467 = InKey(1213417543)
  649.                 If UCase(s4467) > "" Then
  650.                   GoTo 5559
  651.                 End If
  652.  5553         Loop
  653.  5559       Loop
  654.  5565       Cls 
  655.             MorePrompt(0)
  656.             DisplayTextFile(ProgPath + "helper.bbs")
  657.             Locate 23, 22
  658.             Print "@1F@  Press Any Key To Return To Menu  @04@"
  659.             Do
  660.  5603         s4467 = InKey(1213417543)
  661.               If UCase(s4467) > "" Then
  662.                 GoTo 5651
  663.               End If
  664.  5645       Loop
  665.  5651     Loop
  666.  5657     Cls 
  667.           MorePrompt(0)
  668.           Locate 2, 1
  669.           Print "@1F@  Other Places Configuration File Editor  "
  670.           Locate 4, 1
  671.           Print "@09@Before you continue, Please have the following Information:"
  672.           Locate 6, 1
  673.           Print "@08@[@0F@1@08@] @09@The @0F@COMPLETE @09@Path to the Other Place."
  674.           Locate 7, 1
  675.           Print "@08@[@0F@2@08@] @09@The Registration Number for the Other Place @08@(@07@Optional@08@)"
  676.           Locate 8, 1
  677.           Print "@08@[@0F@3@08@] @09@The Name of the user who registered it for you"
  678.           Locate 9, 1
  679.           Print "@08@    (Optional - and Only Functional in Registered Version)"
  680.           Locate 10, 1
  681.           Print "@08@[@0F@4@08@] @09@The filename of the Other Place you are installing"
  682.           Locate 11, 1
  683.           Print "@08@[@0F@5@08@] @09@The @0F@COMPLETE @09@Path to your Lachrymator Directory"
  684.           Locate 13, 1
  685.           Print "@0C@Do you have all the Necessary Info? @08@(@0F@Y@08@/@0F@N@08@)  @0C@[@88@?@0C@]"
  686.           Locate 13, 45
  687.           Do
  688.  5816       s4467 = InKey(1213417543)
  689.             If InStr("YN", UCase(s4467)) Then
  690.               GoTo 5865
  691.             End If
  692.  5859     Loop
  693.  5865     If UCase(s4467) = "Y" Then
  694.             GoTo 6118
  695.             GoTo 6118
  696.           End If
  697.  5899     Cls 
  698.           MorePrompt(0)
  699.           Locate 5, 1
  700.           Print "@09@No Big Deal Really....Just go and gather the necessary Info"
  701.           Locate 6, 1
  702.           Print "@09@Once you have it all together then just reenter this Utility"
  703.           Locate 7, 1
  704.           Print "@09@and select @0F@Add an Extras Module @09@from the Main Menu."
  705.           Locate 8, 1
  706.           Print "@09@From the next menu select @0F@Edit Configuration File@09@."
  707.           Locate 9, 1
  708.           Print "@09@That will put ya right back where you need to be!"
  709.           Locate 10, 1
  710.           Print "@09@Then just edit the configuration file for your new other place"
  711.           Locate 11, 1
  712.           Print "@09@Then you'll be all set! Thanks for using this Program....."
  713.           Locate 12, 1
  714.           Print "@09@and for running @04@Lachrymator @09@on your BBS......"
  715.           Locate 13, 1
  716.           Print "@09@We at S&T Software TRULY appreciate it!"
  717.           Locate 15, 1
  718.           Print "@07@<<<<<<<<<<<<<<<@0F@PRESS ANY KEY TO CONTINUE@07@>>>>>>>>>>>>>>>"
  719.           Do
  720.  6067       s4467 = InKey(1213417543)
  721.             If s4467 > "" Then
  722.               GoTo 6112
  723.             End If
  724.  6106     Loop
  725.  6112   Loop
  726.         Do
  727.  6118     Cls 
  728.           MorePrompt(0)
  729.           Do
  730.  6126       Locate 2, 1
  731.             Print "@09@Enter the File Name of the Extras Module without the .wcx extension"
  732.             Locate 3, 1
  733.             Print "@08@[@07@EXAMPLE: Requiem @08@] @08@Make sure not to add the .wcx at the end"
  734.             Locate 4, 1
  735.             s4488 = InputMask("@0F@", "XXXXXXXX", "", 1213417543)
  736.             If UCase(s4488) = "QUIT" Then
  737.               GoTo 40
  738.             End If
  739.  6218       If (UCase(s4488) = "") = 0 Then GoTo 6244
  740.           Loop
  741.           Do
  742.  6244       Locate 6, 1
  743.             Print "@09@Enter the PATH to the Extras Module:"
  744.             Locate 7, 1
  745.             Print "@08@[@07@EXAMPLE: d:\wildcat\lach\example\ @08@]"
  746.             Locate 8, 1
  747.             s4480 = InputMask("@0F@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  748.             If UCase(s4480) = "QUIT" Then
  749.               GoTo 40
  750.             End If
  751.  6336       If (UCase(s4480) = "") = 0 Then GoTo 6362
  752.           Loop
  753.  6362     If Exists(s4480 + s4488 + ".wcx") Then
  754.             Locate 9, 1
  755.             Print "@09@Information @0F@VERIFIED!"
  756.             Delay 2
  757.             GoTo 6549
  758.           End If
  759.  6418     Locate 10, 1
  760.           Print "@84@ERROR!! @09@Some or All of the info you have provided is incorrect."
  761.           Locate 11, 1
  762.           Print "@09@Please try again - Make sure to put that trailing Backslash"
  763.           Locate 12, 1
  764.           Print "@09@at the end of the path...and make sure that the filename you"
  765.           Locate 13, 1
  766.           Print "@09@Provided is correct...."
  767.           Locate 14, 1
  768.           Print "@07@<<<<<<<<<<<<<<<<<<<< @0F@PRESS ANY KEY TO CONTINUE @07@>>>>>>>>>>>>>>>>>>>>"
  769.           Do
  770.  6498       s4467 = InKey(1213417543)
  771.             If s4467 > "" Then
  772.               GoTo 6543
  773.             End If
  774.  6537     Loop
  775.  6543   Loop
  776.         Do
  777.           Do
  778.  6549       Locate 9, 1
  779.             ClrEOL 
  780.             Locate 10, 1
  781.             Print "@09@Please enter the PATH to your Lachrymator Directory"
  782.             Locate 11, 1
  783.             Print "@08@[@07@EXAMPLE: d:\wildcat\lach\ @08@]"
  784.             Locate 12, 1
  785.             s4476 = InputMask("@0F@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  786.             If (UCase(s4476) = "") = 0 Then GoTo 6651
  787.           Loop
  788.  6651     If UCase(s4476) = "QUIT" Then
  789.             GoTo 40
  790.           End If
  791.  6677     If Exists(s4476 + "extras.dat") Then
  792.             Locate 13, 1
  793.             Print "@09@Path @0F@VERIFIED!"
  794.             Delay 2
  795.             GoTo 6933
  796.           End If
  797.  6727     Locate 13, 1
  798.           Print "@84@ERROR! @09@The path you entered can't be verified"
  799.           Locate 14, 1
  800.           Print "@09@Please make sure you added the trailing backslash"
  801.           Locate 15, 1
  802.           Print "@07@<<<<<<<<<<<<<<<<<<<< @0F@PRESS ANY KEY TO CONTINUE @07@>>>>>>>>>>>>>>>>>>>>"
  803.           Do
  804.  6775       s4467 = InKey(1213417543)
  805.             If s4467 > "" Then
  806.               GoTo 6820
  807.             End If
  808.  6814     Loop
  809.  6820
  810.  6841     For i4465 = 13 To 16 Step 1
  811.             Locate i4465, 1
  812.             ClrEOL 
  813.           Next
  814.  6927   Loop
  815.  6933   Locate 13, 1
  816.         ClrEOL 
  817.         Do
  818.  6943     Locate 14, 1
  819.           Print "@09@Please enter the Registration Number for the Extras Module:"
  820.           Locate 15, 1
  821.           s4496 = InputMask("@09@If Not Reg'd then Use @0F@0@09@:@0F@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  822.           If UCase(s4496) = "QUIT" Then
  823.             GoTo 40
  824.           End If
  825.  7019     If (UCase(s4496) = "") = 0 Then GoTo 7045
  826.         Loop
  827.  7045   Locate 16, 1
  828.         Print "@0F@Thank You!"
  829.         Delay 2
  830.         Locate 16, 1
  831.         ClrEOL 
  832.         Do
  833.  7079     Locate 17, 1
  834.           Print "@09@Enter the name of the user who registered the Extras Module:"
  835.           Locate 18, 1
  836.           s4492 = InputMask("@09@If None then use @0F@UNREGISTERED@09@: @0F@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  837.           If UCase(s4492) = "QUIT" Then
  838.             GoTo 40
  839.           End If
  840.  7155     If (UCase(s4492) = "") = 0 Then GoTo 7181
  841.         Loop
  842.  7181   s4492 = UCase(s4492)
  843.         Locate 19, 1
  844.         Print "@0F@Thank You!"
  845.         Delay 2
  846.         Locate 19, 1
  847.         ClrEOL 
  848.         Do
  849.  7226     Cls 
  850.           MorePrompt(0)
  851.           Locate 2, 1
  852.           Print "@09@This is what you've selected for settings:"
  853.           Locate 5, 1
  854.           Print "@09@Path to Lachrymator Directory: " + "@0F@" + s4476
  855.           Locate 6, 1
  856.           Print "@09@Registration Number          : " + "@0F@" + s4496
  857.           Locate 7, 1
  858.           Print "@09@User to give credit to       : " + "@0F@" + s4492
  859.           Locate 10, 1
  860.           Print "@09@Is all the information as you want it? @08@(@07@Y@08@/@07@N@08@) @04@[@88@?@04@]"
  861.           Locate 10, 47
  862.           Do
  863.  7360       s4467 = InKey(1213417543)
  864.             If InStr("YN", UCase(s4467)) Then
  865.               GoTo 7409
  866.             End If
  867.  7403     Loop
  868.  7409     If UCase(s4467) = "Y" Then
  869.             Locate 10, 1
  870.             ClrEOL 
  871.             GoTo 7557
  872.           End If
  873.  7447     Locate 10, 1
  874.           Print "@09@This will require starting the CFG Editor over - Are you sure? @08@(@07@Y@08@/@07@N@08@) @04@[@88@?@04@]"
  875.           Locate 10, 71
  876.           Do
  877.  7470       s4467 = InKey(1213417543)
  878.             If InStr("YN", UCase(s4467)) Then
  879.               GoTo 7519
  880.             End If
  881.  7513     Loop
  882.  7519     If (UCase(s4467) = "Y") = 0 Then GoTo 7547
  883.         Loop
  884.  7547   Locate 10, 1
  885.         ClrEOL 
  886.  7557   Locate 10, 1
  887.         Print "@84@Writing to " + "@84@" + Trim(UCase(s4480)) + "@84@" + Trim(UCase(s4488)) + "@84@.CFG"
  888.         Delay 2
  889.         i4463 = FreeFile
  890.         Open s4480 + s4488 + ".cfg" For Output As i4463
  891.         Print #i4463, s4476
  892.         Print #i4463, s4496
  893.         Print #i4463, s4492
  894.         Print #i4463, "-----------------------------------------------------------------------------"
  895.         Print #i4463, "Configuration File Explaination/Definitions"
  896.         Print #i4463, "Line 1: COMPLETE path to your lachrymator directory (include trailing backslash)"
  897.         Print #i4463, "        example: d:\wildcat\lach10\"
  898.         Print #i4463, "Line 2: Your Extras Module registration number"
  899.         Print #i4463, "        example: 1234567890"
  900.         Print #i4463, "Line 3: Who to give credit to for registration (if none then put UNREGISTERED)"
  901.         Print #i4463, "        example: John Q. Public"
  902.         Print #i4463, "NO OTHER LINES ARE USED...SO MAKE SURE THAT YOU FILLED THEM IN CORRECTLY :)"
  903.         Print #i4463, "-----------------------------------------------------------------------------"
  904.         Close i4463
  905.         Locate 10, 1
  906.         Print "@04@Configuration File Written!@BELL@";
  907.         ClrEOL 
  908.         Locate 11, 1
  909.         Print "@09@You're all set - your new Extras Module is now installed!"
  910.         Locate 12, 1
  911.         Print "@09@If you encounter ANY dificulties PLEASE contact a Lachrymator Support BBS"
  912.         Locate 13, 1
  913.         Print "@09@Phone Numbers / Addresses are available in your Sysop Docs for Lachrymator."
  914.         Locate 15, 1
  915.         Print "@09@Thank You for Running @04@Lachrymator @09@on your BBS!"
  916.         Locate 16, 1
  917.         Print "@09@We at S&T Software Appreciate it a LOT!"
  918.         Locate 17, 1
  919.         Print "@07@<<<<<<<<<<<<<<<<<<<< @0F@PRESS ANY KEY TO CONTINUE @07@>>>>>>>>>>>>>>>>>>>>"
  920.         Do
  921.  7958     s4467 = InKey(1213417543)
  922.           If s4467 > "" Then
  923.             GoTo 8003
  924.           End If
  925.  7997   Loop
  926.  8003 Loop
  927.